#name: While $kv
#author: Abhijit Mahabal
# --
while (my($k, $v) = each % ){

}
